home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / qmsstins.arc / HST15.SCR < prev    next >
Text File  |  1987-09-20  |  21KB  |  784 lines
  1. IF $ONLINE NOGOOD
  2. TURNON ECHO
  3. STRING QMBS FUNC WAIT1 WAIT2 WAIT3
  4. CLRSCR
  5. WINDOW 6 2 73 23
  6. NOTE  ************************ DISCLAIMER **************************
  7. NOTE
  8. NOTE  This script enables you to change the US Robotics HST's inter-
  9. NOTE  nal parameters and S-registers contained in  non-volatile RAM.
  10. NOTE  Incorrect settings may adversely affect  modem  operation.  If
  11. NOTE  your modem setup is satisfactory, you  should display its cur-
  12. NOTE  rent NRAM settings  (menu option 4) and obtain a hard-copy via
  13. NOTE  shift-PrtSc.  In the  event something  goes wrong, you will be
  14. NOTE  able to restore these  settings manually.   I hope this script
  15. NOTE  helps you become more familiar with the USRobotics Courier HST
  16. NOTE  modem and its operating parameters.
  17. NOTE
  18. NOTE  This script was developed under QModem  SST release 3.1.  Some
  19. NOTE  its functions required the advanced script functions available
  20. NOTE  in 3.1 and later releases of this program.
  21. NOTE
  22. NOTE  This script is in the public domain, but QModem is not. If you
  23. NOTE  use the program productively, I recommend that you send in the
  24. NOTE  suggested contribution.
  25. NOTE
  26. NOTE ******************* PRESS ANY KEY TO CONTINUE *******************
  27. INKEY 0
  28. GOAHEAD:
  29. ASSIGN WAIT3 "4000"
  30. ASSIGN WAIT1 "2000"
  31. ASSIGN WAIT2 "600"
  32. EXIST BIGPAUSE.ON FASTBOX
  33. EXIST BIGPAUSE.OFF STARTER
  34. NOTE  Voluntary  pauses are used in  this script  in order to allow data
  35. NOTE  received from  the HST Modem to  be displayed on the screen.  Some
  36. NOTE  problems  have been encountered by users of fast AT-class machines
  37. NOTE  (ie,  12Mhz) whereby  delays are  too short and prevent the timely
  38. NOTE  display  of modem  acknowledgments and  return codes.  You will be
  39. NOTE  prompted  next  for voluntary pause length.   At first, reply N to
  40. NOTE  the prompt and test the pause length by selecting option 10 (Basic
  41. NOTE  Command Help).   If the entire help screen is displayed before the
  42. NOTE  PRESS ENTER TO RETURN TO MENU  prompt is  displayed at  the bottom
  43. NOTE  of the screen,  short pause duration are fine.   If the prompt was
  44. NOTE  displayed  before the  modem finished displaying  the help screen,
  45. NOTE  longer  pauses are required.   If you desire long pauses,  you may
  46. NOTE  specify it here each time you start this script.  Alternately, you
  47. NOTE  may create  a  zero-length  file in your  Qmodem  directory called
  48. NOTE  BIGPAUSE.ON  or  BIGPAUSE.OFF,  indicating whether you want to use
  49. NOTE  long or short pauses,  respectively.   If either file exists, this
  50. NOTE  screen will be bypassed and the correct pause will go into effect.
  51. NOTE  ...
  52. DISPLAY "     Type L for long pauses, S for short pauses and (Enter) "
  53.  
  54. ASKSPEED:
  55. GET 1 1
  56. IF "$1" = "L" FASTBOX
  57. IF "$1" = "l" FASTBOX
  58. IF "$1" = "S" STARTER
  59. IF "$1" = "s" STARTER
  60. BEEP 400
  61. GOTO ASKSPEED
  62.  
  63. FASTBOX:
  64. ASSIGN WAIT1 "8000"
  65. ASSIGN WAIT2 "3000"
  66. ASSIGN WAIT3 "10000"
  67.  
  68. ABORT:
  69. WINDOW 1 1 80 24
  70. GOTO GETOUT
  71.  
  72. STARTER:
  73. WINDOW 1 1 80 24
  74.  
  75. WRTSCR:
  76. CLRSCR
  77. NOTE   ╒══════════════ USR COURIER HST MODEM SERVICE SCRIPT v 1.5 ══════════════╕
  78. NOTE   │                                                                        │
  79. NOTE   │  1.  Display HST ROM Level             13. Check Modem-PC Interface    │
  80. NOTE   │  2.  Display HST Memory Checksum       14. Self-Test: Analog Loopback  │
  81. NOTE   │  3.  HST RAM Test                      15. Self-Test: Answer Frequency │
  82. NOTE   │  4.  Display HST RAM Settings          16. Self-Test: Reset Data Mode  │
  83. NOTE   │  5.  Display HST NRAM Settings         17. Reset Modem to NRAM Default │
  84. NOTE   │  6.  Display/Set Internal TOD Clock    18. Copy RAM Settings to NRAM   │
  85. NOTE   │  7.  Display/Store Internal Phone #s                                   │
  86. NOTE   │  8.  Display Basic Command Help        99. Exit Script                 │
  87. NOTE   │  9.  Display Extended Command Help                                     │
  88. NOTE   │ 10.  Display Dial Command Help         QM. Set Qmodem 3.1 Defaults     │
  89. NOTE   │ 11.  Display S-Register Help           PC. Set PCBoard 12.x Defaults   │
  90. NOTE   │ 12.  Display Modem Switch Help                                         │
  91. NOTE   │                                                                        │
  92. NOTE   ╞════════════════════════════════════════════════════════════════════════╡
  93. NOTE   │                                                                        │
  94. NOTE   │            Type desired function code and (Enter): __                  │
  95. NOTE   │                                                                        │
  96. NOTE   ╘═[dpm 09/87]════════════════════════════════════════════════════════════╛
  97. GETSCR
  98. GETFUNC:
  99. PUTSCR
  100. GETSCR
  101. GOTOXY 56,18
  102. GET FUNC 2
  103. IF "$FUNC" = "1" ROMLEVEL
  104. IF "$FUNC" = "2" CKSUM
  105. IF "$FUNC" = "3" RAMTEST
  106. IF "$FUNC" = "4" CURSET
  107. IF "$FUNC" = "5" NRAM
  108. IF "$FUNC" = "6" INTCLOCK
  109. IF "$FUNC" = "7" DISPFONE
  110. IF "$FUNC" = "8" BASHELP
  111. IF "$FUNC" = "9" EXTHELP
  112. IF "$FUNC" = "10" DIALHELP
  113. IF "$FUNC" = "11" SREGHELP
  114. IF "$FUNC" = "12" SWITHELP
  115. IF "$FUNC" = "13" INTEST
  116. IF "$FUNC" = "14" ANLOOP
  117. IF "$FUNC" = "15" FREQTEST
  118. IF "$FUNC" = "16" DATAMODE
  119. IF "$FUNC" = "17" SETDEF
  120. IF "$FUNC" = "18" WRTNRAM
  121. IF "$FUNC" = "QM" QMDMDEF
  122. IF "$FUNC" = "qm" QMDMDEF
  123. IF "$FUNC" = "PC" PCBDEF
  124. IF "$FUNC" = "pc" PCBDEF
  125. IF "$FUNC" = "99" GETOUT
  126. BEEP 400
  127. GOTO GETFUNC
  128.  
  129. GETOUT:
  130. PUTSCR
  131. CLRSCR
  132. GOTOXY 1,1
  133. DISPLAYLN "USR HST SERVICE SCRIPT TERMINATED"
  134. EXIT
  135.  
  136. ROMLEVEL:
  137. CLRSCR
  138. DISPLAYLN "USR HST ROM LEVEL DISPLAY -- ATI0"
  139. SEND "ATI0{"
  140. PAUSE $WAIT1
  141. GOTO CONTINUE
  142.  
  143. CKSUM:
  144. CLRSCR
  145. DISPLAYLN "USR HST MEMORY CHECKSUM (ROM) DISPLAY -- ATI1"
  146. SEND "ATI1{"
  147. PAUSE $WAIT1
  148. GOTO CONTINUE
  149.  
  150. RAMTEST:
  151. CLRSCR
  152. DISPLAYLN "USR HST RAM MEMORY TEST -- ATI2"
  153. SEND "ATI2{"
  154. PAUSE $WAIT1
  155. GOTO CONTINUE
  156.  
  157. CURSET:
  158. CLRSCR
  159. DISPLAYLN "USR HST CURRENT MODEM SETTINGS -- ATI4"
  160. SEND "ATI4{"
  161. PAUSE $WAIT1
  162. PAUSE $WAIT1
  163. GOTO CONTINUE
  164.  
  165. NRAM:
  166. CLRSCR
  167. DISPLAYLN "USR HST NON-VOLATILE RAM SETTINGS -- ATI5"
  168. SEND "ATI5{"
  169. PAUSE $WAIT1
  170. PAUSE $WAIT1
  171. GOTO CONTINUE
  172.  
  173. INTCLOCK:
  174. CLRSCR
  175. DISPLAYLN "USR HST INTERNAL CLOCK DISPLAY -- ATI3"
  176. SEND "ATI3{"
  177. PAUSE $WAIT1
  178. DISPLAY "Do you wish to set the modem clock (Y/N) "
  179. GET 0 1
  180. IF "$0" = "Y" SETCLOCK
  181. IF "$0" = "y" SETCLOCK
  182. GOTO CONTINUE
  183.  
  184. SETCLOCK:
  185. CLRSCR
  186. DISPLAYLN "USR HST INTERNAL CLOCK SETTING"
  187. GOTOXY 1,3
  188. DISPLAYLN "OPTION 1: Synchronize to system clock"
  189. DISPLAYLN "OPTION 2: Specify your own clock value"
  190.  
  191. ASKCLOCK:
  192. GOTOXY 1,6
  193. DISPLAY   "Type 1 or 2 and (Enter):  "
  194. GET 0 1
  195. IF "$0" = "1" SYSCLOCK
  196. IF "$0" = "2" USRCLOCK
  197. BEEP 450
  198. GOTO ASKCLOCK
  199.  
  200. SYSCLOCK:
  201. CLRSCR
  202. DISPLAYLN "SYNCHRONIZING MODEM CLOCK TO SYSTEM CLOCK"
  203. GOTOXY 1,3
  204. DISPLAYLN "Current system clock is $TIME"
  205. SEND "ATK1{"
  206. PAUSE $WAIT2
  207. ASSIGN 0 "K1"
  208. SEND "ATI3=$TIME$0{"
  209. PAUSE $WAIT2
  210. PAUSE $WAIT2
  211.  
  212. SHOWTIME:
  213. GOTOXY 1,12
  214. DISPLAYLN "Modem Internal clock value is:"
  215. SEND "ATI3{"
  216. PAUSE $WAIT2
  217. GOTO CONTINUE
  218.  
  219. USRCLOCK:
  220. CLRSCR
  221. DISPLAYLN "MANUAL SETTING OF USR HST INTERNAL CLOCK"
  222. GOTOXY 1,3
  223. DISPLAYLN "WARNING: The script does not validate the clock value;"
  224. DISPLAYLN "         an incorrect clock value will return an error."
  225. GOTOXY 1,7
  226. DISPLAY  "Type a clock value in HH:MM:SS format and  (Enter): "
  227. GET 1 8
  228. ASSIGN 0 "K1"
  229. SEND "ATK1{"
  230. PAUSE $WAIT2
  231. SEND "ATI3=$1$0{"
  232. PAUSE $WAIT2
  233. PAUSE $WAIT2
  234. GOTO SHOWTIME
  235.  
  236. SETSREG:
  237. CLRSCR
  238. DISPLAYLN "SET HST S-REGISTER(S)"
  239. SEND "ATS$${"
  240. PAUSE $WAIT1
  241. PAUSE $WAIT1
  242.  
  243. ASKREG:
  244. GOTOXY 1,18
  245. DISPLAYLN "Enter register you want to set (0-13,16-17,19-23):    "
  246. DISPLAYLN "---or press (Enter) to return to abort--"
  247. GOTOXY 55,18
  248. GET 1 2
  249. IF "$1" = "" CONTINUE
  250. IF "$1" > "23" BADREG
  251. IF "$1" = "14" BADREG
  252. IF "$1" = "15" BADREG
  253. IF "$1" = "18" BADREG
  254. GOTO DISPREG
  255.  
  256. BADREG:
  257. BEEP 400
  258. GOTO ASKREG
  259.  
  260. DISPREG:
  261. CLRSCR
  262. DISPLAYLN "Current value of register S$1:"
  263. SEND "ATS$1?{"
  264. PAUSE $WAIT2
  265. PAUSE $WAIT2
  266.  
  267. ASKSET:
  268. GOTOXY 1,8
  269. DISPLAYLN "Type new S$1 register value or (Enter) to leave as is: "
  270. GET 0 3
  271. IF "$0" = "" CONTINUE
  272. IF "$0" < "0"  BADSET
  273. IF "$0" > "255" BADSET
  274. SEND "ATS$1=$0{"
  275. PAUSE $WAIT2
  276. PAUSE $WAIT2
  277. GOTOXY 1,15
  278. DISPLAYLN "New S$1 register value returned by modem is:"
  279. SEND "ATS$1?{"
  280. PAUSE $WAIT2
  281. PAUSE $WAIT2
  282. GOTO CONTINUE
  283.  
  284. BADSET:
  285. BEEP 400
  286. GOTO ASKSET
  287.  
  288. SETDEF:
  289. CLRSCR
  290. DISPLAYLN "Resetting the NRAM defaults may erase changes made to the modem"
  291. DISPLAYLN "operational parameters or S-Registers if these changes were not"
  292. DISPLAYLN "copied to NRAM."
  293. DISPLAYLN "Do you wish to continue (Y/N):  "
  294. GOTOXY 31,4
  295. GET 0 1
  296. IF "$0" = "Y" RESETDEF
  297. IF "$0" = "y" RESETDEF
  298. IF "$0" = "N" CONTINUE
  299. IF "$0" = "n" CONTINUE
  300. BEEP 400
  301. GOTO SETDEF
  302.  
  303. RESETDEF:
  304. SEND "ATZ{"
  305. PAUSE $WAIT1
  306. GOTO CONTINUE
  307.  
  308. BASHELP:
  309. CLRSCR
  310. SEND "AT$${"
  311. PAUSE $WAIT3
  312. PAUSE $WAIT3
  313. PAUSE $WAIT3
  314. GOTO CONTINUE
  315.  
  316. EXTHELP:
  317. CLRSCR
  318. SEND "AT&$${"
  319. PAUSE $WAIT3
  320. PAUSE $WAIT3
  321. GOTO CONTINUE
  322.  
  323. DIALHELP:
  324. CLRSCR
  325. SEND "ATD$${"
  326. PAUSE $WAIT3
  327. PAUSE $WAIT3
  328. GOTO CONTINUE
  329.  
  330. SREGHELP:
  331. CLRSCR
  332. SEND "ATS$${"
  333. PAUSE $WAIT3
  334. PAUSE $WAIT3
  335. PAUSE $WAIT3
  336. GOTO CONTINUE
  337.  
  338. SWITHELP:
  339. CLRSCR
  340. DISPLAYLN "HST DIP SWITCH HELP SCREEN"
  341. DISPLAYLN " "
  342. DISPLAYLN "    ┌─┬─┬─┬─┬─┬─┬─┬─┬─┬─┐"
  343. DISPLAYLN " UP │ │█│ │█│ │ │█│ │ │█│    Factory"
  344. DISPLAYLN " DN │█│ │█│ │█│█│ │█│█│ │    Settings"
  345. DISPLAYLN "    └─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘"
  346. DISPLAYLN "     1 2 3 4 5 6 7 8 9 10
  347. DISPLAYLN " "
  348. NOTE  Sw#         Description                 Sw#           Description
  349. NOTE  ------------------------------------------------------------------------
  350. NOTE   1...Data Terminal Ready Override        6...Carrier Detect Override
  351. NOTE       UP=DTR Normal  DN=DTR always ON         UP=Pin 8     DN=Always ON
  352. NOTE   2...Verbal/Numeric Result Codes         7...Single/Multiple Phone
  353. NOTE       UP=Verbal      DN=Numeric               UP=Single    DN=Multiple
  354. NOTE   3...Result Code Display                 8...Command Set Recognition
  355. NOTE       UP=No Display  DN=Display               UP=Dumb Mode DN=Smart Mode
  356. NOTE   4...Command Mode Local Echo             9...Normal Mode Escape Code op.
  357. NOTE       UP=Echo        DN=No Echo               UP=Hang Up   DN=Keep Connect
  358. NOTE   5...Auto Answer                        10...Power-on Software Defaults
  359. NOTE       UP=AA 1st ring DN=No AA                 UP=Use NRAM  DN=Use ROM
  360. GOTO CONTINUE
  361.  
  362.  
  363.  
  364.  
  365. DISPFONE:
  366. CLRSCR
  367. DISPLAYLN "RAM-STORED NUMBERS (BLANK INDICATES NO NUMBER STORED)"
  368. GOTOXY 1,3
  369. DISPLAY "NUMBER 0:"
  370. SEND "AT&Z0?{"
  371. PAUSE $WAIT2
  372. PAUSE $WAIT2
  373. DISPLAY "NUMBER 1:"
  374. SEND "AT&Z1?{"
  375. PAUSE $WAIT2
  376. PAUSE $WAIT2
  377. DISPLAY "NUMBER 2:"
  378. SEND "AT&Z2?{"
  379. PAUSE $WAIT2
  380. PAUSE $WAIT2
  381. DISPLAY "NUMBER 3:"
  382. SEND "AT&Z3?{"
  383. PAUSE $WAIT2
  384. PAUSE $WAIT2
  385.  
  386. ASKNUM:
  387. GOTOXY 1,16
  388. DISPLAY "Number to change (0-3) or (Enter) to leave unchanged:   "
  389. GOTOXY 54,16
  390. GET 0 1
  391. IF "$0" = "" CONTINUE
  392. IF "$0" < "0" BADNUM
  393. IF "$0" > "3" BADNUM
  394. GOTOXY 1,18
  395. DISPLAY "Enter new number (36 pos.max.) ...................................."
  396. GOTOXY 32,18
  397. GET 1 36
  398. SEND "AT&Z$0=$1{"
  399. GOTOXY 1,22
  400. DISPLAYLN "New number has been stored in RAM at position $0"
  401. GOTO DISPFONE
  402.  
  403. WRTNRAM:
  404. CLRSCR
  405. DISPLAYLN "WRITING CHANGES TO NRAM MAY CHANGE YOUR POWER-UP MODEM DEFAULTS."
  406.  
  407. ASKREW:
  408. GOTOXY 1,3
  409. DISPLAYLN "Do you wish to continue (Y/N):  "
  410. GOTOXY 31,3
  411. GET 0 1
  412. IF "$0" = "Y" REWRTRAM
  413. IF "$0" = "y" REWRTRAM
  414. IF "$0" = "N" CONTINUE
  415. IF "$0" = "n" CONTINUE
  416. BEEP 400
  417. GOTO ASKREW
  418.  
  419. REWRTRAM:
  420. SEND "AT&W{"
  421. PAUSE $WAIT1
  422. GOTO NRAM
  423.  
  424. INTEST:
  425. CLRSCR
  426. DISPLAYLN "THIS TEST WILL EXERCISE THE PC-MODEM INTERFACE.  IF THE INTERFACE"
  427. DISPLAYLN "IS FUNCTIONAL, THE MODEM WILL RESPOND WITH 'OK'..."
  428. PAUSE $WAIT1
  429. SEND "AT{"
  430. PAUSE $WAIT1
  431. GOTO CONTINUE
  432.  
  433. ANLOOP:
  434. CLRSCR
  435. DISPLAYLN "ANALOG LOOPBACK SELF-TEST OF THE HST MODEM.  THE HST WILL"
  436. DISPLAYLN "MODULATE AND DEMODULATE ITS OWN INTERNAL TEST PATTERN AND RETURN"
  437. DISPLAYLN "THE PATTERN TO THE SCREEN.  THE FIRST STEP, UPON SUCCESS, WILL"
  438. DISPLAYLN "DISPLAY 'CONNECT 2400'.  THE SECOND STEP WILL DISPLAY 'NO CARRIER'"
  439. SEND "AT&M0S16=5D{"
  440. PAUSE $WAIT1
  441. PAUSE $WAIT1
  442. SEND "X"
  443. PAUSE $WAIT1
  444. SEND "AT&M4S16=0{"
  445. PAUSE $WAIT1
  446. SEND "X"
  447. PAUSE $WAIT1
  448. GOTO CONTINUE
  449.  
  450.  
  451. FREQTEST:
  452. CLRSCR
  453. DISPLAYLN "EXERCISING THE ANSWER FREQUENCY OF THE HST."
  454. PAUSE $WAIT1
  455. SEND "AT&MOS16=5A{"
  456. PAUSE $WAIT1
  457. SEND "X"
  458. PAUSE $WAIT1
  459. SEND  "AT&M4S16=0{"
  460. PAUSE $WAIT1
  461. SEND "X"
  462. PAUSE $WAIT1
  463. GOTO CONTINUE
  464.  
  465. DATAMODE:
  466. CLRSCR
  467. DISPLAYLN "RESET STANDARD HST DATA MODE AND ERROR-CHECKING DEFAULTS"
  468. SEND "AT&M4S16=0"
  469. PAUSE $WAIT1
  470. SEND "X"
  471. PAUSE $WAIT1
  472. GOTO CONTINUE
  473.  
  474. PCBDEF:
  475. ASSIGN QMBS "1"
  476. CLRSCR
  477. DISPLAYLN "MODEM SWITCH SETTINGS FOR PCBOARD 12.X HOST OPERATIONS"
  478. DISPLAYLN " "
  479. DISPLAYLN "    ┌─┬─┬─┬─┬─┬─┬─┬─┬─┬─┐"
  480. DISPLAYLN " UP │█│█│ │ │█│█│█│ │█│█│"
  481. DISPLAYLN " DN │ │ │█│█│ │ │ │█│ │ │"
  482. DISPLAYLN "    └─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘"
  483. DISPLAYLN "     1 2 3 4 5 6 7 8 9 10
  484. DISPLAYLN " "
  485. DISPLAYLN "NOTE: Switch 7 setting may be changed if you are running"
  486. DISPLAYLN "      a multi-phone operation"
  487. DISPLAYLN " "
  488. DISPLAYLN "Press any key to continue with other modem parameters"
  489. INKEY 0
  490. CLRSCR
  491. DISPLAYLN "This function will set all modem operational parameters and"
  492. DISPLAYLN "S-Registers to their optimum values for 19200 bps operation"
  493. DISPLAYLN "when using PCBoard 12.x software."
  494. GOTO REJOIN
  495.  
  496. QMDMDEF:
  497. ASSIGN QMBS "0"
  498. CLRSCR
  499. DISPLAYLN "MODEM SWITCH SETTINGS FOR QMODEM 3.X ORIGINATE OPERATIONS"
  500. DISPLAYLN " "
  501. DISPLAYLN "    ┌─┬─┬─┬─┬─┬─┬─┬─┬─┬─┐"
  502. DISPLAYLN " UP │█│█│ │ │ │█│█│ │█│█│"
  503. DISPLAYLN " DN │ │ │█│█│█│ │ │█│ │ │"
  504. DISPLAYLN "    └─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘"
  505. DISPLAYLN "     1 2 3 4 5 6 7 8 9 10
  506. DISPLAYLN " "
  507. DISPLAYLN "Press any key to continue with other modem parameters"
  508. INKEY 0
  509. CLRSCR
  510. DISPLAYLN "This function will set all modem operational parameters and"
  511. DISPLAYLN "S-Registers to their optimum values for 19200 bps operation"
  512. DISPLAYLN "when using Qmodem SST 3.1 in originate mode when communicating"
  513. DISPLAYLN "with PCBoard 12.x HST-equipped Bulletin Board Systems."
  514. REJOIN:
  515. DISPLAYLN " "
  516. DISPLAYLN "You May chose the 'FAST' method which will set all parameters"
  517. DISPLAYLN "at once without any accompanying display, or the 'SLOW' method"
  518. DISPLAYLN "which walks you throught the process one parameter at a time."
  519. DISPLAYLN "The SLOW method may take a couple minutes to complete."
  520. DISPLAYLN " "
  521. DISPLAY   "Type 'F' for FAST method, 'S' for SLOW, (null) to abort"
  522. ASKFAST1:
  523. GET 0 1
  524. IF "$0" = "" CONTINUE
  525. IF "$0" = "f" FASTSET1
  526. IF "$0" = "F" FASTSET1
  527. IF "$0" = "S" SLOWSET1
  528. IF "$0" = "s" SLOWSET1
  529. BEEP 400
  530. GOTO ASKFAST1
  531.  
  532. SLOWSET1:
  533. CLRSCR
  534. DISPLAYLN "SET TRANSMITTER ENABLED : ATC1"
  535. SEND "ATC1{"
  536. PAUSE $WAIT1
  537. CLRSCR
  538. DISPLAYLN "SET COMMAND MODE ECHO OFF: ATE0"
  539. SEND "ATE0{"
  540. PAUSE $WAIT1
  541. CLRSCR
  542. DISPLAYLN "SET LOCAL ECHO OFF AFTER CONNECT: ATF1"
  543. SEND "ATF1{"
  544. PAUSE $WAIT1
  545. CLRSCR
  546. IF "$QMBS" = "1" SETM0
  547. DISPLAYLN "SET SPEAKER ON UNTIL CARRIER ESTABLISHED: ATM1"
  548. SEND "ATM1{"
  549. PAUSE $WAIT1
  550. GOTO SETQ
  551. SETM0:
  552. DISPLAYLN "DISABLE SPEAKER: ATM0"
  553. SEND "ATM0{"
  554. PAUSE $WAIT1
  555. SETQ:
  556. CLRSCR
  557. DISPLAYLN "SET QUIET MODE OFF-RESULT CODES DISPLAYED: ATQ0"
  558. SEND "ATQ0{"
  559. PAUSE $WAIT1
  560. CLRSCR
  561. DISPLAYLN "SET RESULTS TO VERBAL MODE: ATV1"
  562. SEND "ATV1{"
  563. PAUSE $WAIT1
  564. CLRSCR
  565. DISPLAYLN "SET EXTENDED RESULT CODE OPTION: ATX7"
  566. SEND "ATX7"
  567. PAUSE $WAIT1
  568. CLRSCR
  569. DISPLAYLN "SET U.S. ANSWER SEQUENCE DEFAULT: ATB1"
  570. SEND "ATB1{"
  571. PAUSE $WAIT1
  572. CLRSCR
  573. DISPLAYLN "EXTENDED FUNCTION-ENABLE ARQ RESULT CODE: AT&A1"
  574. SEND "AT&A1{"
  575. PAUSE $WAIT1
  576. CLRSCR
  577. DISPLAYLN "EXTENDED FUNCTION-FIX DTE RATE: AT&B1"
  578. SEND "AT&B1{"
  579. PAUSE $WAIT1
  580. CLRSCR
  581. DISPLAYLN "EXTENDED FUNCTION-XMIT DATA CTS HARDWARE FLOW CONTROL: AT&H1"
  582. SEND "AT&H1{"
  583. PAUSE $WAIT1
  584. CLRSCR
  585. DISPLAYLN "EXTENDED FUNCTION-RCV DATA FLOW CONTROL DISABLED: AT&I0"
  586. SEND "AT&I0{"
  587. PAUSE $WAIT1
  588. CLRSCR
  589. DISPLAYLN "EXTENDED FUNCTION-ERROR CONTROL MODE NORMAL/ARQ: AT&M4"
  590. SEND "AT&M4{"
  591. PAUSE $WAIT1
  592. CLRSCR
  593. DISPLAYLN "EXTENDED FUNCTION-DATA RATE SET TO NORMAL LINK OPERATIONS: AT&N0"
  594. SEND "AT&N0{"
  595. PAUSE $WAIT1
  596. CLRSCR
  597. DISPLAYLN "EXTENDED FUNCTION-SET PULSE DIAL MAKE/BREAK RATIO TO U.S.: AT&P0"
  598. SEND "AT&P0{"
  599. PAUSE $WAIT1
  600. CLRSCR
  601. DISPLAYLN "EXTENDED FUNCTION-RCV DATA FLOW CONTROL->PASS ON RTS HIGH: AT&R2"
  602. SEND "AT&R2{"
  603. PAUSE $WAIT1
  604. CLRSCR
  605. DISPLAYLN "EXTENDED FUNCTION-MODEM CONTROLS DATA SET READY LINE: AT&S1"
  606. SEND "AT&S1{"
  607. PAUSE $WAIT1
  608. CLRSCR
  609. DISPLAYLN "EXTENDED FUNCTION-SEND DESTRUCTIVE, EXPEDITED BREAKS: AT&Y1"
  610. SEND "AT&Y1{"
  611. PAUSE $WAIT1
  612. CLRSCR
  613. DISPLAYLN "S-REGISTER- SET ZERO RINGS BEFORE AUTO ANSWER: ATS0=0"
  614. SEND "ATS0=0{"
  615. PAUSE $WAIT1
  616. CLRSCR
  617. DISPLAYLN "S-REGISTER- SET INCOMING RING COUNT TO ZERO: ATS1=0"
  618. SEND "ATS1=0{"
  619. PAUSE $WAIT1
  620. CLRSCR
  621. PAUSE $WAIT1
  622. CLRSCR
  623. DISPLAYLN "S-REGISTER- SET INCOMING RING COUNT TO ZERO: ATS1=0"
  624. SEND "ATS1=0{"
  625. PAUSE $WAIT1
  626. CLRSCR
  627. DISPLAYLN "S-REGISTER- SET ASCII ESCAPE CODE DEFAULT TO '+': ATS2=43"
  628. SEND "ATS2=43{"
  629. PAUSE $WAIT1
  630. CLRSCR
  631. DISPLAYLN "S-REGISTER- SET ASCII CARRIAGE RETURN TO 13: ATS3=13"
  632. SEND "ATS3=13{"
  633. PAUSE $WAIT1
  634. CLRSCR
  635. DISPLAYLN "S-REGISTER- SET ASCII LINE FEED TO 10: ATS4=10"
  636. SEND "ATS4=10{"
  637. PAUSE $WAIT1
  638. CLRSCR
  639. DISPLAYLN "S-REGISTER- SET ASCII BACKSPACE TO 8: ATS5=8"
  640. SEND "ATS5=8{"
  641. PAUSE $WAIT1
  642. CLRSCR
  643. DISPLAYLN "S-REGISTER- SET #SECONDS MODEM WAITS BEFORE DIALING T0 2: ATS6=2"
  644. SEND "ATS6=2{"
  645. PAUSE $WAIT1
  646. CLRSCR
  647. DISPLAYLN "S-REGISTER- SET #SECONDS MODEM WAITS FOR CARRIER TO 60: ATS7=60"
  648. SEND "ATS7=30{"
  649. PAUSE $WAIT1
  650. CLRSCR
  651. DISPLAYLN "S-REGISTER- SET DURATION OF PAUSE (,) TO 2/10TH SECOND: ATS8=2"
  652. SEND "ATS8=2{"
  653. PAUSE $WAIT1
  654. CLRSCR
  655. DISPLAYLN "S-REGISTER- REQUIRED DURATION OF REMOTE CARRIER 6/10TH SEC: ATS9=6"
  656. SEND "ATS9=6{"
  657. PAUSE $WAIT1
  658. CLRSCR
  659. DISPLAYLN "S-REGISTER- HANG UP 7/10TH SEC AFTER LOSS OF CARRIER: ATS10=7"
  660. SEND "ATS10=7{"
  661. PAUSE $WAIT1
  662. CLRSCR
  663. DISPLAYLN "S-REGISTER- TOUCH-TONE DURATION AND SPACING IS 70 MILLISECS: ATS11=70"
  664. SEND "ATS11=70{"
  665. PAUSE $WAIT1
  666. CLRSCR
  667. DISPLAYLN "S-REGISTER- ESCAPE CODE SEQUENCE GUARD TIME IS 50 MICSSECS: ATS12=50"
  668. SEND "ATS12=50{"
  669. PAUSE $WAIT1
  670. CLRSCR
  671. DISPLAYLN "S-REGISTER- SET BIT-MAPPED REGISTER TO ZERO: ATS13=0"
  672. SEND "ATS13=0{"
  673. PAUSE $WAIT1
  674. CLRSCR
  675. DISPLAYLN "S-REGISTER- SET SELF-TEST REGISTER TO DATA MODE (NO TEST): ATS16=0"
  676. SEND "ATS16=0{"
  677. PAUSE $WAIT1
  678. CLRSCR
  679. DISPLAYLN "S-REGISTER- SET ARQ LINK DISCONNECT REASON REGISTER TO ZERO: ATS17=0"
  680. SEND "ATS17=0{"
  681. PAUSE $WAIT1
  682. CLRSCR
  683. DISPLAYLN "S-REGISTER- SET INACTIVITY TIMER TO ZERO (NO AUTO HANGUP): ATS19=0"
  684. SEND "ATS19=0{"
  685. PAUSE $WAIT1
  686. CLRSCR
  687. DISPLAYLN "S-REGISTER- SET NP CARRIER REASON CODE REGISTER TO ZERO: ATS20=0"
  688. SEND "ATS20=0{"
  689. PAUSE $WAIT1
  690. CLRSCR
  691. DISPLAYLN "S-REGISTER- SET LENGTH OF BREAKS TO 100 MICLISECS: ATS21=10"
  692. SEND "ATS21=10{"
  693. PAUSE $WAIT1
  694. CLRSCR
  695. DISPLAYLN "S-REGISTER- SET ASCII VALUE OF XON TO 17: ATS22=17"
  696. SEND "ATS22=17{"
  697. PAUSE $WAIT1
  698. CLRSCR
  699. DISPLAYLN "S-REGISTER- SET ASCII VALUE OF XOFF TO 19: ATS23=19"
  700. SEND "ATS23=19{"
  701. PAUSE $WAIT1
  702.  
  703.  
  704. FASTSET1:
  705. CLRSCR
  706. IF "$QMBS" = "1" FASTSET2
  707. DISPLAYLN "SENDING QMODEM SETUP PARAMETERS TO HST MODEM......."
  708. SEND "AT C1 E0 F1 M1 Q0 V1 X7 B1{"
  709. PAUSE $WAIT1
  710. SEND "AT &A1 &B1 &G0 &H1 &I0 &M4 &N0 &P0 &R2 &S1 &Y1{"
  711. PAUSE $WAIT1
  712. SEND "AT S0=0 S1=0 S2=43 S3=13 S4=10 S5=8 S6=2 S7=60 S8=2{"
  713. PAUSE $WAIT1
  714. SEND "AT S9=6 S10=7 S11=70 S12=50 S13=0 S16=0 S17=0{"
  715. PAUSE $WAIT1
  716. SEND "AT S19=0 S20=0 S21=10 S22=17 S23=19{"
  717. PAUSE $WAIT1
  718. GOTO WRITEPARMS
  719.  
  720. FASTSET2:
  721. DISPLAYLN "SENDING PCB SETUP PARAMETERS TO HST MODEM......."
  722. SEND "AT C1 E0 F1 M1 Q0 V1 X7 B1{"
  723. PAUSE $WAIT1
  724. SEND "AT &A1 &B1 &G0 &H1 &I0 &M4 &N0 &P0 &R2 &S1 &Y1{"
  725. PAUSE $WAIT1
  726. SEND "AT S0=0 S1=0 S2=43 S3=13 S4=10 S5=8 S6=2 S7=60 S8=2{"
  727. PAUSE $WAIT1
  728. SEND "AT S9=6 S10=7 S11=70 S12=50 S13=0 S16=0 S17=0{"
  729. PAUSE $WAIT1
  730. SEND "AT S19=0 S20=0 S21=10 S22=17 S23=19{"
  731. PAUSE $WAIT1
  732. GOTO WRITEPARMS
  733.  
  734. WRITEPARMS:
  735. CLRSCR
  736. DISPLAYLN "ALL DEFAULTS HAVE BEEN SET...."
  737. DISPLAYLN "Y to write defaults to NRAM"
  738. DISPLAYLN "N to abort"
  739.  
  740. ASKDEFYN:
  741. GOTOXY 1,5
  742. DISPLAYLN "Type Y/N and (Enter)   "
  743. GOTOXY 22,5
  744. GET 1 1
  745. IF "$1" = "Y" WRITEDEF
  746. IF "$1" = "y" WRITEDEF
  747. IF "$1" = "n" CONTINUE
  748. IF "$1" = "N" CONTINUE
  749. BEEP 400
  750. GOTO ASKDEFYN
  751.  
  752. WRITEDEF:
  753. SEND "AT&W{"
  754. PAUSE $WAIT2
  755. CLRSCR
  756. DISPLAYLN "If you changed switch settings 2,3,4,5 OR 9, a hardware reset"
  757. DISPLAYLN "must be performed for the new switch settings to go into effect."
  758. DISPLAYLN "(hardware reset can be done now or later via power-off/power-on)."
  759. DISPLAYLN " "
  760. DISPLAY "Do you wish a hardware reset to be performed now (Y/N):   "
  761.  
  762.  
  763. ASKRESET:
  764. GET 1 1
  765. IF "$1" = "Y" RESET
  766. IF "$1" = "y" RESET
  767. IF "$1" = "n" CONTINUE
  768. IF "$1" = "N" CONTINUE
  769. BEEP 400
  770. GOTO ASKRESET
  771.  
  772. RESET:
  773. CLRSCR
  774. DISPLAYLN "RESETTING HARDWARE TO NRAM AND NEW SWITCH SETTINGS"
  775. SEND "ATZ{"
  776. PAUSE $WAIT1
  777. GOTO CONTINUE
  778.  
  779. CONTINUE:
  780. GOTOXY 1,24
  781. DISPLAY "Press Any Key to return to main menu......"
  782. INKEY 0
  783. GOTO GETFUNC
  784.